home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 151-175 / scopedisk172 / amygen / appendix.bas < prev    next >
BASIC Source File  |  1995-03-19  |  31KB  |  773 lines
  1. 100 REM APPENDIX Program.
  2. 110 REM Documentation.  Appendices.
  3. 120 REM Copyright (c) 1983 - 1987 by: Melvin O. Duke.
  4. ' Ported to the Amiga in March 1988 by Nathan Barber
  5. ' Adaptions for Amiga graphics (c) 1988 by Nathan Barber
  6. 130 DATA Genealogy
  7. 140 DATA User's Manual
  8. 150 DATA -5
  9. 160 DATA 1
  10. 170 INDENT = 0
  11. 180 REM Printer Definitions
  12. 190 FORM.FEED$  = CHR$(12)
  13. 200 COMPR.OFF$  = CHR$(18)     : COMPR.ON$ = CHR$(15)
  14. 210 BOLD.OFF$   = CHR$(27)+"F" : BOLD.ON$ = CHR$(27)+"E"
  15. 220 EXPAND.OFF$ = CHR$(18)     : EXPAND.ON$ = CHR$(14)
  16. 230 DASHES$ = "+"+STRING$(54,45)+"+"
  17. 240 TRIM.LINE$ = "(Trim-line)"
  18. 300 REM Program begins here
  19. 310 READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  20. 320 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  21. 330 GOSUB 920  :REM'For trim line and heading space
  22. 340 FOR I = 1 TO 6 : LPRINT : NEXT I
  23. 350 LPRINT BOLD.ON$;     :REM'Set Emphasized mode
  24. 360 LPRINT EXPAND.ON$;   :REM'Set Expanded Print
  25. 370 LPRINT TAB(TAB.POS-1);TITLE$
  26. 380 LPRINT EXPAND.OFF$;  :REM'Return to normal
  27. 390 LPRINT BOLD.OFF$;    :REM'Return to normal
  28. 400 FOR I = 1 TO 3 : LPRINT : NEXT I
  29. 410 LPRINT BOLD.ON$;     :REM'Set Emphasized mode
  30. 420 LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  31. 430 LPRINT BOLD.OFF$;    :REM'Return to normal
  32. 440 LPRINT : LPRINT : LPRINT
  33. 450 LPRINT TAB(TAB.POS+11);"Version 5.0"
  34. 460 FOR I = 1 TO 11 : LPRINT : NEXT I
  35. 470 LPRINT TAB(TAB.POS+10); DOC.NAME$
  36. 480 LINE.NO = LINE.NO + 27
  37. 490 :REM'
  38. 500 READ REPLY$
  39. 510 REM First, change tildes to quotes
  40. 520 FOR Q = 1 TO LEN(REPLY$)
  41. 530  IF MID$(REPLY$,Q,1)="~"THEN MID$(REPLY$,Q,1)=CHR$(34)
  42. 540 NEXT Q
  43. 550 IF LEFT$(REPLY$,1) = "." THEN GOSUB 1270: GOTO 500
  44. 560 IF LINE.NO > 44 THEN GOSUB 1030
  45. 570 REM Print the line if not a command
  46. 580 LPRINT TAB(TAB.POS);REPLY$
  47. 590 LINE.NO = LINE.NO + 1
  48. 600 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  49. 610 GOTO 500
  50. 620 REM Data for the Copyright Page
  51. 630 DATA ".pa"
  52. 640 DATA " "
  53. 750 DATA ".vt 12"
  54. 760 DATA "Users are encouraged to copy and share"
  55. 770 DATA "the programs with others."
  56. 780 DATA ".vt 5"
  57. 790 DATA "If you are using these programs, you are"
  58. 800 DATA "expected to become a Registered User,"
  59. 810 DATA "by making a contribution to the author"
  60. 815 DATA "of the programs ($45.00 suggested)."
  61. 820 DATA ".sp"
  62. 830 DATA "Melvin O. Duke"
  63. 840 DATA "P. O. Box 20836"
  64. 850 DATA "San Jose, CA  95160"
  65. 860 DATA ".vt 4"
  66. 870 DATA "Copyright (c) 1983 through 1987, by:"
  67. 880 DATA "Melvin O. Duke."
  68. 890 DATA ".sp"
  69. 900 DATA "All rights reserved."
  70. 910 :REM'
  71. 920 REM Top of each page routine
  72. 930 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  73. 940 LPRINT
  74. 950 LPRINT TAB(30); TRIM.LINE$
  75. 960 LPRINT DASHES$ :REM'Dashes
  76. 970 FOR I = 1 TO 6
  77. 980  LPRINT
  78. 990 NEXT I
  79. 1000 LINE.NO = LINE.NO + 6
  80. 1010 RETURN
  81. 1020 :REM'
  82. 1030 REM Bottom of each page Routine
  83. 1040 IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 1160
  84. 1050 LPRINT TAB(TAB.POS); STRING$(40,45)  :REM'on line 46
  85. 1060 LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 5.0" :REM'on line 47
  86. 1070 IF PAGE.NO MOD 2 = 1 THEN 1110
  87. 1080 LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  88. 1090 LPRINT TAB(TAB.POS+27);"User's Manual"
  89. 1100 GOTO 1160
  90. 1110 LPRINT TAB(TAB.POS); "User's Manual";
  91. 1120 IF PAGE.NO < 10 THEN DELTA = 34
  92. 1130 IF PAGE.NO >  9 THEN DELTA = 33
  93. 1140 IF PAGE.NO > 99 THEN DELTA = 32
  94. 1150 LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  :REM'on line 48
  95. 1160 LPRINT : LPRINT : LPRINT
  96. 1170 LPRINT DASHES$ :REM'dashes after 51
  97. 1180 LPRINT TAB(30); TRIM.LINE$
  98. 1190 LPRINT FORM.FEED$;
  99. 1200 PAGE.NO = PAGE.NO + 1
  100. 1210 LINE.NO = 1
  101. 1220 IF REPLY$ = ".eof" THEN 1240  :REM'Bypass after last page
  102. 1230 GOSUB 920  :REM'For top of next page
  103. 1240 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  104. 1250 RETURN
  105. 1260 :REM'
  106. 1270 REM Command Processor
  107. 1280 IF LEFT$(REPLY$,3) = ".h1" THEN 1390
  108. 1290 IF LEFT$(REPLY$,3) = ".h2" THEN 1550
  109. 1300 IF LEFT$(REPLY$,3) = ".h3" THEN 1660
  110. 1310 IF LEFT$(REPLY$,3) = ".sp" THEN 1770
  111. 1320 IF LEFT$(REPLY$,4) = ".eof" THEN 1820
  112. 1330 IF LEFT$(REPLY$,3) = ".pa" THEN 1860
  113. 1340 IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  114. 1350 IF LEFT$(REPLY$,3) = ".vt" THEN 1930
  115. 1360 IF LEFT$(REPLY$,3) = ".pk" THEN 2040
  116. 1370 IF LEFT$(REPLY$,3) = ".in" THEN 2170
  117. 1380 STOP
  118. 1390 REM Head 1 Processor
  119. 1400 FOR I = LINE.NO TO 44
  120. 1410  LPRINT
  121. 1420 NEXT I
  122. 1430 GOSUB 1030  :REM'Bottom of page Routine
  123. 1440 IF PAGE.NO MOD 2 = 0 THEN GOSUB 1860  :REM'For h1 on Odd pages
  124. 1450 LPRINT BOLD.ON$;     :REM'Set emphasized print
  125. 1460 LPRINT EXPAND.ON$;   :REM'Set expanded print
  126. 1470 IF PAGE.NO MOD 2 = 0 THEN ADJUST = -2 :ELSE ADJUST = -5
  127. 1480 LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  128. 1490 LPRINT EXPAND.OFF$;  :REM'Return to normal
  129. 1500 LPRINT BOLD.OFF$;    :REM'Return to non-bold
  130. 1510 LINE.NO = LINE.NO+1
  131. 1520 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  132. 1530 RETURN
  133. 1540 :REM'
  134. 1550 REM Head 2 Processor
  135. 1560 IF LINE.NO = 7 THEN 1580 :REM'skip spacing if at top of page
  136. 1570 IF LINE.NO > 43 THEN GOSUB 1860 :ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  137. 1580 LPRINT BOLD.ON$;  :REM'Set emphasized print
  138. 1590 LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  139. 1600 LPRINT BOLD.OFF$; :REM'Return to normal
  140. 1610 LPRINT
  141. 1620 LINE.NO = LINE.NO + 2
  142. 1630 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  143. 1640 RETURN
  144. 1650 :REM'
  145. 1660 REM Head 3 Processor
  146. 1670 IF LINE.NO = 7 THEN 1690 :REM'skip spacing if at top of page
  147. 1680 IF LINE.NO > 43 THEN GOSUB 1860 :ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  148. 1690 LPRINT BOLD.ON$;  :REM'Set emphasized print
  149. 1700 LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  150. 1710 LPRINT BOLD.OFF$; :REM'Return to normal
  151. 1720 LPRINT
  152. 1730 LINE.NO = LINE.NO + 2
  153. 1740 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  154. 1750 RETURN
  155. 1760 :REM'
  156. 1770 REM Single Space Processor
  157. 1780 IF LINE.NO = 7 THEN 1800
  158. 1790 IF LINE.NO > 44 THEN GOSUB 1860 :ELSE LPRINT : LINE.NO = LINE.NO + 1
  159. 1800 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  160. 1810 RETURN
  161. 1820 REM End of File Processor
  162. 1830 GOSUB 1860 :REM'Bottom of Page
  163. 1850 GOTO 8740
  164. 1860 REM Page Eject Processor
  165. 1870 FOR I = LINE.NO TO 44
  166. 1880  LPRINT
  167. 1890  LINE.NO = LINE.NO + 1
  168. 1900 NEXT I
  169. 1910 GOSUB 1030  :REM'Bottom of Page Processing
  170. 1920 RETURN
  171. 1930 REM Vertical Tab Processor
  172. 1940 IF LINE.NO = 7 THEN 2030
  173. 1950 IF LINE.NO > 44 THEN GOSUB 1030  :REM'End of page
  174. 1960 QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  175. 1970 FOR I = 1 TO QTY
  176. 1980  LPRINT
  177. 1990  LINE.NO = LINE.NO + 1
  178. 2000  IF LINE.NO > 44 THEN I = QTY
  179. 2010 NEXT I
  180. 2020 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  181. 2030 RETURN
  182. 2040 REM Pack Processor
  183. 2050 IF LINE.NO > 44 THEN GOSUB 1030
  184. 2060 IF TAB.POS = 8 THEN ADJUST = 4
  185. 2070 IF TAB.POS = 13 THEN ADJUST = 7
  186. 2080 TAB.POS = TAB.POS + ADJUST + INDENT
  187. 2090 WIDTH "lpt1:", 132 :REM'set condensed width
  188. 2100 LPRINT COMPR.ON$;  :REM'Packed printing
  189. 2110 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  190. 2120 LPRINT COMPR.OFF$; :REM'Return to normal
  191. 2130 WIDTH "lpt1:", 80  :REM'return to normal
  192. 2140 LINE.NO = LINE.NO + 1
  193. 2150 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  194. 2160 RETURN
  195. 2170 REM Indent Processor
  196. 2180 INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  197. 2190 RETURN
  198. 3000 REM APPENDIX
  199. 3010 DATA ".h1 A.  MESSAGES"
  200. 3020 DATA ".pn 59"
  201. 3030 DATA ".h2 START-UP MESSAGES"
  202. 3040 DATA "The initial System Message, when the"
  203. 3050 DATA "system is turned on, is:"
  204. 3060 DATA ".sp"
  205. 3070 DATA ".pk Current date is Tue 1-01-1980"
  206. 3080 DATA ".pk Enter new date:"
  207. 3090 DATA ".sp"
  208. 3100 DATA "The user is expected to respond with an"
  209. 3110 DATA "appropriate date."
  210. 3120 DATA ".sp"
  211. 3130 DATA "The next system message is:"
  212. 3140 DATA ".sp"
  213. 3150 DATA ".pk Current time is 0:00:52.17"
  214. 3160 DATA ".pk Enter new time:"
  215. 3170 DATA ".sp"
  216. 3180 DATA "The user is expected to respond with a"
  217. 3190 DATA "correct time."
  218. 3200 DATA ".sp"
  219. 3210 DATA "The System then responds:"
  220. 3220 DATA ".sp"
  221. 3230 DATA ".pk The IBM Personal Computer DOS"
  222. 3240 DATA ".pk Version 2.10 (C) Copyright IBM Corp 1981, 1982, 1983"
  223. 3250 DATA ".sp"
  224. 3260 DATA "When Starting BASIC, the message"
  225. 3270 DATA "in response to"
  226. 3280 DATA ".sp"
  227. 3290 DATA ".pk basic/s:256"
  228. 3300 DATA ".sp"
  229. 3310 DATA "is similar to:"
  230. 3320 DATA ".sp"
  231. 3330 DATA ".pk IBM Personal Computer Basic"
  232. 3340 DATA ".pk Version D2.00 Copyright IBM Corp. 1981, 1982, 1983"
  233. 3350 DATA ".pk 61118 Bytes Free"
  234. 3360 DATA ".h1 B.  Summary"
  235. 3370 DATA ".h2 General Programs"
  236. 3380 DATA ".pk Function Performed                     Filename"
  237. 3390 DATA ".pk -----------------------------------    --------"
  238. 3400 DATA ".pk Initial File Formatting"
  239. 3410 DATA ".pk   Persons File                         creatper"
  240. 3420 DATA ".pk   Marriages File                       creatmar"
  241. 3430 DATA ".pk   Ordinances File                      creatord"
  242. 3440 DATA ".sp"
  243. 3450 DATA ".pk Entry of Data"
  244. 3460 DATA ".pk   Persons File                         updatper"
  245. 3470 DATA ".pk   Marriages File                       updatmar"
  246. 3480 DATA ".pk   Ordinances File                      updatord"
  247. 3490 DATA ".sp"
  248. 3500 DATA ".pk Print Detailed Information"
  249. 3510 DATA ".pk   Detailed Personal Information        printper"
  250. 3520 DATA ".pk   Detailed Marriage Information        printmar"
  251. 3530 DATA ".sp"
  252. 3540 DATA ".pk List the Records in the Files"
  253. 3550 DATA ".pk   Persons File                         listper"
  254. 3560 DATA ".pk   Marriages File                       listmar"
  255. 3570 DATA ".sp"
  256. 3580 DATA ".pk List the File Index"
  257. 3590 DATA ".pk   Parent/Child Index                   listpci"
  258. 3600 DATA ".sp"
  259. 3610 DATA ".pk Print Alphabetic Lists"
  260. 3620 DATA ".pk   List of Persons                      alphaper"
  261. 3630 DATA ".pk   Persons in Marriages                 alphamar"
  262. 3640 DATA ".sp"
  263. 3650 DATA ".pk Prepare an Index"
  264. 3660 DATA ".pk   Parent/Child Index                   indexpc"
  265. 3670 DATA ".pk   Marriages Index                      indexmar"
  266. 3680 DATA ".pa"
  267. 3690 DATA ".h2 General Programs, Cont."
  268. 3700 DATA ".pk Function Performed                     Filename"
  269. 3710 DATA ".pk -----------------------------------    --------"
  270. 3720 DATA ".pk Display the Information                display"
  271. 3730 DATA ".pk   Personal Information"
  272. 3740 DATA ".pk   Pedigree Information"
  273. 3750 DATA ".pk   Family Group Information"
  274. 3760 DATA ".pk   Ordinances Information"
  275. 3770 DATA ".sp"
  276. 3780 DATA ".pk Print the Genealogical Forms"
  277. 3790 DATA ".pk   Print Pedigree Charts                pedigree"
  278. 3800 DATA ".pk   Print Family Group Sheets            family"
  279. 3810 DATA ".sp"
  280. 3820 DATA ".pk Produce Descendents Charts             descend"
  281. 3830 DATA ".pk   Display on the Screen"
  282. 3840 DATA ".pk   Print the Charts"
  283. 3850 DATA ".sp"
  284. 3860 DATA ".pk Display a Menu"
  285. 3870 DATA ".pk   Displays Available Programs          menu"
  286. 3880 DATA ".h2 Data Files"
  287. 3890 DATA ".pk File Usage                             Filename"
  288. 3900 DATA ".pk ------------------------------------   --------"
  289. 3910 DATA ".pk Personal Vital Statistics              persfile"
  290. 3920 DATA ".pk Marriage Vital Statistics              marrfile"
  291. 3930 DATA ".pk Life Events (LDS Ordinances)           ordfile"
  292. 3940 DATA ".pk Verify BASIC has 256 byte buffer       verifile"
  293. 3950 DATA ".pa"
  294. 3960 DATA ".h2 Indexes"
  295. 3970 DATA ".pk Function Performed                     Filename"
  296. 3980 DATA ".pk ------------------------------------   --------"
  297. 3990 DATA ".pk Relates Parents and Children           pcindex"
  298. 4000 DATA ".pk Relates Spouses by Marriage            mindex"
  299. 4010 DATA ".h2 Documentation"
  300. 4020 DATA ".pk Purpose of Documentation               Filename"
  301. 4030 DATA ".pk ------------------------------------   --------"
  302. 4040 DATA ".pk Display Initial Information            runfirst"
  303. 4050 DATA ".sp"
  304. 4060 DATA ".pk Change Printers for Documentation      printers"
  305. 4070 DATA ".sp"
  306. 4080 DATA ".pk Print a Program Directory              director"
  307. 4090 DATA ".sp"
  308. 4100 DATA ".pk Print a User's Manual"
  309. 4110 DATA ".pk   Table of Contents                    tableofc"
  310. 4120 DATA ".pk   Introduction                         introduc"
  311. 4130 DATA ".pk   General Information                  general"
  312. 4140 DATA ".pk   Using the Programs                   usingthe"
  313. 4150 DATA ".pk   Reference Material                   referenc"
  314. 4160 DATA ".pk   Appendices                           appendix"
  315. 4170 DATA ".h2 Overview Information"
  316. 4180 DATA ".pk Function Perfomed                      Filename"
  317. 4190 DATA ".pk ------------------------------------   --------"
  318. 4200 DATA ".pk Overview on the Display Screen         overview"
  319. 4210 DATA ".h1 C.  HINTS"
  320. 4220 DATA ".h2 NAMES"
  321. 4230 DATA "It is best to enter surnames with all"
  322. 4240 DATA "capitals, such as:  ABLE"
  323. 4250 DATA ".sp"
  324. 4260 DATA "(Note: It is common practice to use the"
  325. 4270 DATA "Maiden name of a woman, and the surname"
  326. 4280 DATA "given at birth for a child.)"
  327. 4290 DATA ".h2 DATES"
  328. 4300 DATA "All of the programs expect dates in the"
  329. 4310 DATA "form dd Mmm yyyy, such as: 19 Jun 1928."
  330. 4320 DATA "However, partial dates, or approximate"
  331. 4330 DATA "dates, may be entered.  They will be"
  332. 4340 DATA "moved as far to the right as possible."
  333. 4350 DATA ".h2 Replacing Information"
  334. 4360 DATA "When using one of the update-programs,"
  335. 4370 DATA "information (with the exception of the"
  336. 4380 DATA "record-number) can be replaced by"
  337. 4390 DATA "entering the new information.  The new"
  338. 4400 DATA "information simply replaces the old."
  339. 4410 DATA ".sp"
  340. 4420 DATA "In the event that a user wishes to re-"
  341. 4430 DATA "place a current value with blanks (the"
  342. 4440 DATA "data was not correct), one or more"
  343. 4450 DATA "blanks may be entered by enclosing them"
  344. 4460 DATA "within quotes."
  345. 4470 DATA ".pa"
  346. 4480 DATA ".h2 Removing a Record."
  347. 4490 DATA "In the rare event that a user wishes"
  348. 4500 DATA "to remove a record from the Persons"
  349. 4510 DATA "File, the Marriages File, or the Ord-"
  350. 4520 DATA "inances File, he may do so by chang-"
  351. 4530 DATA "ing the record-number to the same num-"
  352. 4540 DATA "ber preceded by a minus-sign.  This"
  353. 4550 DATA "will cause the record to be cleared,"
  354. 4560 DATA "and it may then be 'saved'."
  355. 4570 DATA ".sp"
  356. 4580 DATA "(Note:  Remove an Ordinance Record be-"
  357. 4590 DATA "fore removing its Corresponding Person"
  358. 4600 DATA "Record, because an Ordinance Record"
  359. 4610 DATA "cannot be accessed if its Person Record"
  360. 4620 DATA "does not exist.)"
  361. 4630 DATA ".sp"
  362. 4640 DATA "After a record is removed, it may be"
  363. 4650 DATA "necessary to change any references to"
  364. 4660 DATA "the removed record (in persons and"
  365. 4670 DATA "marriage records), and you may have"
  366. 4680 DATA "to prepare the indexes again."
  367. 4690 DATA ".h1 D.  MODIFICATIONS"
  368. 4700 DATA ".h2 Making Changes"
  369. 4710 DATA "In all of the following examples, the"
  370. 4720 DATA "MENU program has to be loaded and"
  371. 4730 DATA "edited.  If you desire the changes to"
  372. 4740 DATA "be permanent, you must then save the"
  373. 4750 DATA "MENU again.  Unless you save the MENU,"
  374. 4760 DATA "the changes will be only temporary"
  375. 4770 DATA "(gone the next time that the MENU is"
  376. 4780 DATA "loaded)."
  377. 4790 DATA ".sp"
  378. 4800 DATA "Since the MENU Program is a BASIC"
  379. 4810 DATA "program, you will need to use the"
  380. 4820 DATA "BASIC Editor (see the BASIC Manual"
  381. 4830 DATA "for details) to make the changes."
  382. 4840 DATA ".h2 Color Considerations"
  383. 4850 DATA "Line 260 in the MENU Program establish-"
  384. 4860 DATA "es color, through the use of a SCREEN"
  385. 4870 DATA "Statement, which is:"
  386. 4880 DATA ".sp"
  387. 4890 DATA "  SCREEN S1,S2,S3,S4
  388. 4900 DATA ".sp"
  389. 4910 DATA "For many display screens, color can be"
  390. 4920 DATA "disabled by editing the definition of"
  391. 4930 DATA "S2 in Line 220 of the MENU Program."
  392. 4940 DATA "It can be changed from S2 = 1, to"
  393. 4950 DATA "S2 = 0."
  394. 4960 DATA ".pa"
  395. 4970 DATA ".h2 Color Definitions"
  396. 4980 DATA "Lines 300 through 380 of the MENU pro-"
  397. 4990 DATA "gram establishe color for a number of"
  398. 5000 DATA "variables, which are then used by all"
  399. 5010 DATA "of the programs."
  400. 5020 DATA ".sp"
  401. 5030 DATA "Color can be disabled, or it can be"
  402. 5040 DATA "changed, by changing the numbers for"
  403. 5050 DATA "the variables.  For example, color"
  404. 5060 DATA "can be disabled by changing each of"
  405. 5070 DATA "the numbers which is not a zero (0)"
  406. 5080 DATA "to a seven (7)."
  407. 5090 DATA ".h2 Changing the Number of Persons"
  408. 5100 DATA "The programs, as distributed, provide"
  409. 5110 DATA "for 500 persons, and 500 ordinances."
  410. 5120 DATA ".sp"
  411. 5130 DATA "In order to change the number of"
  412. 5140 DATA "persons and ordinances, it is then"
  413. 5150 DATA "necessary to change the 500 to some"
  414. 5160 DATA "other, more desirable, number."
  415. 5170 DATA ".sp"
  416. 5180 DATA "This can be done in the following way:"
  417. 5190 DATA ".sp"
  418. 5200 DATA "In the MENU program:"
  419. 5210 DATA ".sp"
  420. 5220 DATA "Line-number:   610"
  421. 5230 DATA "Old-value:     MAX.PER = 500"
  422. 5240 DATA "New-value:     you decide."
  423. 5250 DATA ".pa"
  424. 5260 DATA ".h2 Extending Existing Files"
  425. 5270 DATA "Before extending any existing file,"
  426. 5280 DATA "it is always wise to make a back-up"
  427. 5290 DATA "copy of that file, in case you make"
  428. 5300 DATA "any mistakes."
  429. 5310 DATA ".sp"
  430. 5320 DATA "A current file can be extended by"
  431. 5330 DATA "changing the old maximum and setting"
  432. 5340 DATA "a new upper limit.  Once set, the"
  433. 5350 DATA "CREATPER and CREATORD programs must"
  434. 5360 DATA "then be ~run~."
  435. 5370 DATA ".sp"
  436. 5380 DATA "For example, expanding from 500 to 600"
  437. 5390 DATA "persons would require a change in the"
  438. 5400 DATA "the MENU program in line 610 and line"
  439. 5410 DATA "630."
  440. 5420 DATA ".sp"
  441. 5430 DATA "Line-number:   610"
  442. 5440 DATA "Old-value:     MAX.PER = 500"
  443. 5450 DATA "New-value:     MAX.PER = 600"
  444. 5460 DATA ".sp"
  445. 5470 DATA "Line-number:   630"
  446. 5480 DATA "Old-value:     OLD.MAX.PER = 0"
  447. 5490 DATA "New-value:     OLD.MAX.PER = 500"
  448. 5500 DATA ".pa"
  449. 5510 DATA ".h2 Printing A Partial Alphabetic List"
  450. 5520 DATA "The beginning and ending letters, to"
  451. 5530 DATA "be used when printing an alphabetic"
  452. 5540 DATA "list of persons, are set in lines 720"
  453. 5550 DATA "and 730 of the MENU.  These may be"
  454. 5560 DATA "changed, in order to print a partial"
  455. 5570 DATA "list (e.g. F through M)."
  456. 5580 DATA ".h2 Changing the Number of Marriages"
  457. 5590 DATA "The programs, as designed, provide"
  458. 5600 DATA "for 200 marriages."
  459. 5610 DATA ".sp"
  460. 5620 DATA "In order to change the number of"
  461. 5630 DATA "marriages, it is then necessary to"
  462. 5640 DATA "change the 200 to some other, more"
  463. 5650 DATA "desirable, number."
  464. 5660 DATA ".sp"
  465. 5670 DATA "In the MENU program:"
  466. 5680 DATA ".sp"
  467. 5690 DATA "Line-number:   620"
  468. 5700 DATA "Old-value:     MAX.MAR = 200"
  469. 5710 DATA "New-value:     you decide."
  470. 5720 DATA ".pa"
  471. 5730 DATA ".h2 Extending an Existing File"
  472. 5740 DATA "Before extending any existing file,"
  473. 5750 DATA "it is always wise to make a back-up"
  474. 5760 DATA "copy of that file, in case you make"
  475. 5770 DATA "any mistakes."
  476. 5780 DATA ".sp"
  477. 5790 DATA "A current file of marriages can be ex-"
  478. 5800 DATA "tended by changing the old maximum and"
  479. 5810 DATA "establishing a new upper limit.  Then"
  480. 5820 DATA "the CREATMAR Program must be ~run~."
  481. 5830 DATA ".sp"
  482. 5840 DATA "For example, expanding from 200 to 300"
  483. 5850 DATA "marriages would require a change in"
  484. 5860 DATA "the MENU program in line 620 and line"
  485. 5870 DATA "640."
  486. 5880 DATA ".sp"
  487. 5890 DATA "Line-number:   620"
  488. 5900 DATA "Old-value:     MAX.MAR = 200"
  489. 5910 DATA "New-value:     MAX.MAR = 300"
  490. 5920 DATA ".sp"
  491. 5930 DATA "Line-number:   640"
  492. 5940 DATA "Old-value:     OLD.MAX.MAR = 0"
  493. 5950 DATA "New-value:     OLD.MAX.MAR = 200"
  494. 5960 DATA ".pa"
  495. 5970 DATA ".h2 Printing Partial Files"
  496. 5980 DATA "As your files grow in size, you may want"
  497. 5990 DATA "printouts of just the new information,"
  498. 6000 DATA "rather than of entire files."
  499. 6010 DATA ".h2 Partial Printout of Persons"
  500. 6020 DATA "Line 680 in the MENU Program defines"
  501. 6030 DATA "the beginning Person Number for use by"
  502. 6040 DATA "the PRINTPER and LISTPER Programs.  It"
  503. 6050 DATA "is 1.  If you change this number to a"
  504. 6060 DATA "higher number (such as 201), the print-"
  505. 6070 DATA "outs will begin at the higher number,"
  506. 6080 DATA "rather than at 1."
  507. 6090 DATA ".h2 Partial Printout of Marriages"
  508. 6100 DATA "Line 690 in the MENU Program defines"
  509. 6110 DATA "the beginning Marriage Number for use by"
  510. 6120 DATA "the PRINTMAR and LISTMAR Programs.  It"
  511. 6130 DATA "is 1.  If you change this number to a"
  512. 6140 DATA "higher number (such as 101), the print-"
  513. 6150 DATA "outs will begin at the higher number,"
  514. 6160 DATA "rather than at 1."
  515. 6170 DATA ".pa"
  516. 6180 DATA ".h2 Repositioning the Files"
  517. 6190 DATA "As released, all files are located on"
  518. 6200 DATA "drive a:.  In order to change this to"
  519. 6210 DATA "another drive, the letter which iden-"
  520. 6220 DATA "tifies the drive must be changed."
  521. 6230 DATA ".sp"
  522. 6240 DATA "In the MENU program, these drive-"
  523. 6250 DATA "letters are located in line numbers"
  524. 6260 DATA "410-480.  They are:"
  525. 6270 DATA ".sp"
  526. 6280 DATA "Name         Ltr.    Reference"
  527. 6290 DATA "------------------   -------------------"
  528. 6300 DATA "DD.PROG$   = ~a:\~   The Programs"
  529. 6310 DATA "DD.VERI$   = ~a:\~   Verify s/256: file"
  530. 6320 DATA "DD.MENU$   = ~a:\~   Menu"
  531. 6330 DATA "DD.PERS$   = ~a:\~   Persons File"
  532. 6340 DATA "DD.MARR$   = ~a:\~   Marriages File"
  533. 6350 DATA "DD.ORD$    = ~a:\~   Ordinances File"
  534. 6360 DATA "DD.PCIDX$  = ~a:\~   Parent/Child Index"
  535. 6370 DATA "DD.MARIDX$ = ~a:\~   Marriages Index"
  536. 6380 DATA ".sp"
  537. 6390 DATA "The disk-drive letter for any of the"
  538. 6400 DATA "above programs and files may be changed"
  539. 6410 DATA "by changing each a: to the desired"
  540. 6420 DATA "letter."
  541. 6430 DATA ".sp"
  542. 6440 DATA "If you are using sub-directories, then"
  543. 6450 DATA "change the letters to the paths.  For"
  544. 6460 DATA "example:"
  545. 6470 DATA ".sp"
  546. 6480 DATA "DD.PROG$ = ~c:\GENONDIS\~"
  547. 6490 DATA ".pa"
  548. 6500 DATA ".h2 Removing Person and Marriage Numbers"
  549. 6510 DATA "As distributed, numbers for both the"
  550. 6520 DATA "Person and Marriage are shown.  These"
  551. 6530 DATA "numbers may be removed by changing line"
  552. 6540 DATA "670 in the MENU.BAS program,"
  553. 6550 DATA ".sp"
  554. 6560 DATA "  from:  670 CHART.NOS$ = ~n~"
  555. 6570 DATA "  to:    670 CHART.NOS$ = ~y~"
  556. 6580 DATA ".sp"
  557. 6590 DATA "One other effect is that after this"
  558. 6600 DATA "change, Ancestral Numbers (e.g. 1,2,4,"
  559. 6610 DATA "8,16) will be shown in Pedigree Charts"
  560. 6620 DATA "instead of Person Numbers."
  561. 6630 DATA ".h2 Changing the Descendents Chart"
  562. 6640 DATA "As distributed, the Descendents Chart"
  563. 6650 DATA "prints 30 generations.  It also prints"
  564. 6660 DATA "in pages.  Both of these may be changed"
  565. 6670 DATA "by the user."
  566. 6680 DATA ".h2 Making the Descendents Chart Continuous"
  567. 6690 DATA "Line 660 of the MENU program contains"
  568. 6700 DATA "a definition of the number of lines on"
  569. 6710 DATA "a page, which is 58.  By changing this"
  570. 6720 DATA "to a very large number (e.g. 9999),"
  571. 6730 DATA "continuous charts may be produced."
  572. 6740 DATA ".pa"
  573. 6750 DATA ".h2 Changing the Generations Shown"
  574. 6760 DATA "Line number 650 of the MENU program"
  575. 6770 DATA "contains a definition of the maximum"
  576. 6780 DATA "number of generations to be shown,"
  577. 6790 DATA "which is 30.  This number may be re-"
  578. 6800 DATA "duced to as few as 1.  Making the num-"
  579. 6810 DATA "ber more than 30 may cause interfer-"
  580. 6820 DATA "ence between names and dates.  Making"
  581. 6830 DATA "the number greater than 50 may exceed"
  582. 6840 DATA "the printer width definition."
  583. 6850 DATA ".h2 Family Group Binding Space"
  584. 6860 DATA "When Family Group Sheets are printed"
  585. 6870 DATA "without the LDS Ordinances, the part of"
  586. 6880 DATA "the sheets which contain those LDS"
  587. 6890 DATA "Ordinances is removed, and the form is"
  588. 6900 DATA "shifted to the right to provide for"
  589. 6910 DATA "space for binding (3-hole punching)."
  590. 6920 DATA ".sp"
  591. 6930 DATA "Line 710 in the MENU program contains"
  592. 6940 DATA "the definition of the number of char-"
  593. 6950 DATA "acters removed on each side of the"
  594. 6960 DATA "chart (18).  This number may be redu-"
  595. 6970 DATA "ced.  Less binding space will result,"
  596. 6980 DATA "but more information will be shown."
  597. 6990 DATA ".pa"
  598. 7000 DATA ".h2 Removing the Ordinances File"
  599. 7010 DATA "As designed, an Ordinances File is part"
  600. 7020 DATA "of Genealogy ON DISPLAY."
  601. 7030 DATA ".sp"
  602. 7040 DATA "In the event that the user does not wish"
  603. 7050 DATA "to have an Ordinances File, line 460 in"
  604. 7060 DATA "the MENU program must be changed."
  605. 7070 DATA ".sp"
  606. 7080 DATA "Line 460 contains a definition of where"
  607. 7090 DATA "the Ordinances file is located.  It is:"
  608. 7100 DATA ".sp"
  609. 7110 DATA "   DD.ORD$ = ~a:\~"
  610. 7120 DATA ".sp"
  611. 7130 DATA "By changing this to:"
  612. 7140 DATA ".sp"
  613. 7150 DATA "   DD.ORD$ = ~no~"
  614. 7160 DATA ".sp"
  615. 7170 DATA "in the MENU program, the ability to for-"
  616. 7180 DATA "mat and update an Ordinances File is re-"
  617. 7190 DATA "moved from the menu.  In addition, no"
  618. 7200 DATA "information about ordinances will be"
  619. 7210 DATA "displayed or printed."
  620. 7220 DATA ".sp"
  621. 7230 DATA "When no Ordinances File is used, then"
  622. 7240 DATA "both the Family Group Sheet and the"
  623. 7250 DATA "Pedigree Chart are reduced in size, with"
  624. 7260 DATA "additional space for binding provided on"
  625. 7270 DATA "the left.  The number of generations on"
  626. 7280 DATA "the Pedigree Chart is reduced by one."
  627. 7290 DATA ".pa"
  628. 7300 DATA ".h2 Changing Sex Designations"
  629. 7310 DATA "Lines 740 and 750 in the MENU Program"
  630. 7320 DATA "contain one-letter abbreviations, and"
  631. 7330 DATA "full-word designations for male and"
  632. 7340 DATA "female sex.  These designations may be"
  633. 7350 DATA "changed for other uses, such as for"
  634. 7360 DATA "animal and bird genealogies.  (Note:"
  635. 7370 DATA "The same abbreviation cannot be used"
  636. 7380 DATA "for both the male and female sex.)"
  637. 7390 DATA ".h2 Utilizing other Printers"
  638. 7400 DATA "As designed, an IBM Matrix Printer,"
  639. 7410 DATA "an EPSON MX-100 Printer, or some"
  640. 7420 DATA "equivalent printer is assumed."
  641. 7430 DATA ".sp"
  642. 7440 DATA "Control for Compressed Printing, for"
  643. 7450 DATA "Page Length, for Paper Sensing, and"
  644. 7460 DATA "for Form Feeding is provided in the"
  645. 7470 DATA "Pedigree program, in the Family pro-"
  646. 7480 DATA "gram, and in the Descend program."
  647. 7490 DATA ".sp"
  648. 7500 DATA "Form Feeding is also provided in the"
  649. 7510 DATA "printper, printmar, listper, listmar,"
  650. 7520 DATA "listpci, alphaper, alphamar, and dis-"
  651. 7530 DATA "play programs."
  652. 7540 DATA ".sp"
  653. 7550 DATA "Emphasized (bold) printing is used in"
  654. 7560 DATA "the printper program."
  655. 7570 DATA ".sp"
  656. 7580 DATA "In order to provide the same facility"
  657. 7590 DATA "for another printer, these controls"
  658. 7600 DATA "may need to be changed.  They are"
  659. 7610 DATA "found in lines 510-590 of the MENU"
  660. 7620 DATA "program."
  661. 7630 DATA ".pa"
  662. 7640 DATA "The variable names, and their purposes,"
  663. 7650 DATA "are as follows:"
  664. 7660 DATA ".sp"
  665. 7670 DATA "Name:           Purpose"
  666. 7680 DATA "-------------   -----------------------"
  667. 7690 DATA "FORM.FEED$      To Top of the Next Page"
  668. 7700 DATA "PAP.SEN.ON$     Paper Sensing ON"
  669. 7710 DATA "PAP.SEN.OFF$    Paper Sensing OFF"
  670. 7720 DATA "PAP.LONG$       Long (11 inch) Paper"
  671. 7730 DATA "PAP.SHORT$      Short (8-1/2 in.) Paper"
  672. 7740 DATA "COMPR.ON$       Compressed Print ON"
  673. 7750 DATA "COMPR.OFF$      Compressed Print OFF"
  674. 7760 DATA "BOLD.ON$        Emphasized Print ON"
  675. 7770 DATA "BOLD.OFF$       Emphasized Print OFF"
  676. 7780 DATA ".sp"
  677. 7790 DATA "For each of the above, change the"
  678. 7800 DATA "definition to that of your printer."
  679. 7810 DATA ".h2 Paper Considerations"
  680. 7820 DATA "The definition of the paper being used"
  681. 7830 DATA "is continuous, 8-1/2 x 11 inch paper."
  682. 7840 DATA "This is the normal printer paper for"
  683. 7850 DATA "most printers in use.  However, when-"
  684. 7860 DATA "ever a printer has the capabilities of"
  685. 7870 DATA "using wider paper (and single sheets)"
  686. 7880 DATA "changes can be made to the MENU, to"
  687. 7890 DATA "use these features in the PEDIGREE,"
  688. 7900 DATA "FAMILY, and DESCEND Programs."
  689. 7910 DATA ".sp"
  690. 7920 DATA "Lines 760 through 780 of the MENU pro-"
  691. 7930 DATA "gram contain coded definitions for"
  692. 7940 DATA "different paper characteristics."
  693. 7950 DATA ".pa"
  694. 7960 DATA ".h2 Use of Wide Paper"
  695. 7970 DATA "Line 760 defines paper with a width"
  696. 7980 DATA "of 8-1/2 inches.  By changing the 1"
  697. 7990 DATA "to a 2, the paper will then be de-"
  698. 8000 DATA "fined with a 14 inch width."
  699. 8010 DATA ".h2 Use of Short Paper"
  700. 8020 DATA "Line 770 defines paper with a length"
  701. 8030 DATA "of 11 inches.  By changing the 2 to"
  702. 8040 DATA "a 1, the paper will then be defined"
  703. 8050 DATA "with an 8-1/2 inch length."
  704. 8060 DATA ".h2 Use of Single Sheets"
  705. 8070 DATA "Line 780 defines continuous paper."
  706. 8080 DATA "By changing the 1 to a 2, the paper"
  707. 8090 DATA "will then be defined as existing in"
  708. 8100 DATA "single sheets (such as pre-printed"
  709. 8110 DATA "forms)."
  710. 8120 DATA ".pa"
  711. 8130 DATA ".h2 Defining Function Keys"
  712. 8140 DATA "Lines 810-900 of the MENU Program con-"
  713. 8150 DATA "tain definitions of the content of the"
  714. 8160 DATA "ten function keys, and are empty.  These"
  715. 8170 DATA "definitions may be changed to contain"
  716. 8180 DATA "the names and places which are used the"
  717. 8190 DATA "most (e.g. TAYLOR, Mary, Ohio)."
  718. 8200 DATA ".h1 E. TERMS & CONDITIONS"
  719. 8210 DATA ".h2 Terms"
  720. 8220 DATA "If you are using these programs, you are"
  721. 8230 DATA "expected to become a Registered User,"
  722. 8240 DATA "by making a contribution to the author"
  723. 8250 DATA "of the programs ($45.00 suggested)."
  724. 8260 DATA ".vt 3"
  725. 8270 DATA "     Melvin O. Duke"
  726. 8280 DATA "     P. O. Box 20836"
  727. 8290 DATA "     San Jose, CA  95160"
  728. 8300 DATA "     (408) 268-6637"
  729. 8310 DATA ".vt 2"
  730. 8320 DATA "Anyone may request a copy of these pro-"
  731. 8330 DATA "grams, for trial, by sending a blank,"
  732. 8340 DATA "double-sided, double-density, 5-1/4 inch"
  733. 8350 DATA "diskette to the author of the programs,"
  734. 8360 DATA "together with $10.00 (for copying).  A"
  735. 8370 DATA "self-addressed, postage-paid return"
  736. 8380 DATA "diskette-mailer must accompany the"
  737. 8390 DATA "diskette (no exceptions, please)."
  738. 8400 DATA ".sp"
  739. 8410 DATA "A copy of the programs with documenta-"
  740. 8420 DATA "tion will be sent by return mail."
  741. 8430 DATA ".pa"
  742. 8440 DATA ".h2 Conditions"
  743. 8450 DATA "A limited license is granted to all users"
  744. 8460 DATA "of these programs, to make copies of"
  745. 8470 DATA "them, and distribute them to other users,"
  746. 8480 DATA "on the following conditions:"
  747. 8490 DATA ".sp"
  748. 8500 DATA "1.  The Genealogy ON DISPLAY programs"
  749. 8510 DATA "    are not to be distributed to others"
  750. 8520 DATA "    in a modified form."
  751. 8530 DATA ".sp"
  752. 8540 DATA "2.  No fee is to be charged for the Gene-"
  753. 8550 DATA "    alogy ON DISPLAY programs themselves."
  754. 8560 DATA "    However, a nominal copying charge (not"
  755. 8570 DATA "    to exceed $10.) may be charged to de-"
  756. 8580 DATA "    fray copying expenses."
  757. 8590 DATA ".sp"
  758. 8600 DATA "3.  The notices displayed at program"
  759. 8610 DATA "    start-up are not to be bypassed,"
  760. 8620 DATA "    altered, or removed."
  761. 8630 DATA ".h2 Disclaimer"
  762. 8640 DATA "In no event will the Author be liable to"
  763. 8650 DATA "you for any damages, including any lost"
  764. 8660 DATA "profits, lost savings or other inciden-"
  765. 8670 DATA "tal or consequential damages arising out"
  766. 8680 DATA "of the use of or inability to use these"
  767. 8690 DATA "programs, even if the Author has been"
  768. 8700 DATA "advised of the possibility of such"
  769. 8710 DATA "damages, or for any claim by any other"
  770. 8720 DATA "party."
  771. 8730 DATA ".eof"
  772. 8740 END
  773.